home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / boyan51a.zip / SCRIPT.BSC < prev    next >
Text File  |  1993-11-15  |  32KB  |  612 lines
  1. \\
  2. \\ Script.bsc by: Lee Breeden
  3. \\
  4. \\ This script contains all of the commands for doing a mail and file
  5. \\ calls with PCBoard, GAP and UltraBBS. You need to setup a system script
  6. \\ that sets all of the variables in this script. This script has the
  7. \\ variables in it, and the system script needs to be named in the dialing
  8. \\ directory under script name.  Use MakeMail to create a system script.
  9. \\
  10. \\ ******************************************************************** \\
  11. \\ Please note that this script will call the system back if it         \\
  12. \\ fails in different places. Use the \SVA[X] command with              \\
  13. \\ caution. If the system that your calling is long distance, BEWARE!   \\
  14. \\ ******************************************************************** \\
  15. \\ Script using all variables V0-9 VA-H F=cursor position G=messages count
  16. \\ H=Timer to wait for total messages.
  17. \\ VP new path for mail downloading.  If using only download path, you
  18. \\ MUST change the command below to \SVP[%D:]
  19. |name
  20. \SVP[C:\mail\]
  21. \IE+%VN,X[\eb]\svt[0]
  22. \wp[1]\dm21[Starting to log name onto %SN]
  23. \CA-[\SVA[X]\eb]                                   \\ Checks carrier
  24. \if+Press Escape twice[^[~^[{\gb[name]]             \\ looks for prompt
  25. \if+raphics[n q NS{\gb[name]]                      \\ looks for prompt
  26. \if+Color? (Y/N/Help)[{\gb[name]]                  \\ MIGHT NEED TO MODIFY
  27. \if+(C)olor ANSI[C{\gb[name]]                      \\ MIGHT NEED TO MODIFY
  28. \if+irst[\! \@{\gb[name]]                          \\ looks for prompt
  29. \if+ast[\@{\gb[name]]                              \\ looks for prompt
  30. \if+required[{\gb[name]]                           \\ looks for prompt
  31. \if+Is this correct[{\gb[name]]                    \\ looks for prompt
  32. \if+Continue[{\gb[name]]                           \\ looks for prompt
  33. \if+Re-enter your name[r{\gb[name]]                \\ error messages
  34. \if+CAUTION: Auto[{\SVA[X]\eb]                     \\ error messages
  35. \if+Keyboard Time Expired[{\SVA[X]\eb]             \\ error messages
  36. \if+board is currently attempting to dial out[{\SVA[X]\eb] \\ error messages
  37. \if+Automatic Disconnect[{\SVA[X]\eb]              \\ error messages
  38. \if+NETMAIL IN PROGRESS:[{\SVA[X]\AB]              \\ error messages
  39. \if+NO CARRIER[{\SVA[X]\eb]                        \\ error messages
  40. \if+Did you forget[n{\SVA[X]\eb]                   \\ error messages
  41. \if+assword[%PW{\SVN[X]\eb]                        \\ looks for prompt
  42. {\pa[1]\gb[name]
  43.  
  44. |QUEST
  45. \IE+%VQ,X[\eb]                                      \\ This section will
  46. \CA-[\SVA[X]\eb]\\WP[1]\CA-[\AB]                    \\ get you to the
  47. \DM[Script running - connected to %SN pass # %VT `] \\ command prompt.
  48. \IF+(NS)[n{\GB[quest]]                              \\ This block will be
  49. \IF+ontinue[{\GB[quest]]                            \\ called at the complete
  50. \IF+mail[{\GB[quest]]                               \\ of many blocks used
  51. \IF+(NS)non-stop?[n{\GB[quest]]                     \\ in this script.
  52. \IF+Command?[{\SVQ[X]\SVT[0]\EB]                    \\ It is useful for
  53. \IF+(Enter)[N{\GB[quest]]                           \\ unforeseen prompts
  54. \IF+(Enter)=none?[{\GB[quest]]                      \\ that the sysop might
  55. \IF+More?[n{\GB[quest]]                             \\ have lurking in the
  56. \IF+respond[{\GB[quest]]                            \\ system.
  57. \IF+More[N{\GB[quest]]                              \\ in this script.
  58. \IF+Main Board Command?[{\SVQ[X]\SVT[0]\eb]         \\
  59. \IF+"] Main Board Command?[{\SVQ[X]\SVT[0]\eb]      \\
  60. \IF+Your Main Menu[{\SVQ[X]\SVT[0]\eb]              \\
  61. \IF+Conference Command?[{\SVQ[X]\SVT[0]\eb]         \\
  62. \IF+Scan [n{\GB[quest]]                             \\
  63. \IF+assword[%PW{]                                   \\
  64. \IF+Your Main Board[{\SVQ[X]\SVT[0]\eb]             \\
  65. \IF+ Command [{\SVT[0]\eb]
  66. \+VT[1]
  67. \IE+%VT,2[\pa[2]\GB[quest]                              \\ block to its beginning
  68. \IE+%VT,3[^K \pa[2]\GB[quest]                           \\ block to its beginning
  69. \IE+%VT,4[\pa[2]\GB[quest]                              \\ block to its beginning
  70. \IE+%VT,5[^X \pa[2]\GB[quest]                           \\ block to its beginning
  71. \IE+%VT,6[\pa[2]\GB[quest]                              \\ block to its beginning
  72. \IE+%VT,7[\pa[2]\GB[quest]                              \\ block to its beginning
  73. \IE+%VT,8[\pa[2]\GB[quest]                              \\ block to its beginning
  74. \IE+%VT,9[\pa[2]\GB[quest]                              \\ block to its beginning
  75. \IE+%VT,10[{\svt[0]]\pa[2]\GB[quest]                 \\ block to its beginning
  76.  
  77. |2QUEST
  78. \\ This block is EXACTLY the same as the one above only it will not
  79. \\ register as being completed as the above one will.
  80. \CA-[\SVA[X]\eb]\\WP[1]                              \\ get you to the
  81. \DM[Script running - connected to %SN pass # %VT `]  \\ command prompt.
  82. \IF+(NS)[n{\GB[2quest]]                              \\ This block will be
  83. \IF+ontinue[{\GB[2quest]]                            \\ called at the complete
  84. \IF+mail[{\GB[2quest]]                               \\ of many blocks used
  85. \IF+(NS)non-stop?[n{\GB[2quest]]                     \\ in this script.
  86. \IF+Command?[{\SVT[0]\EB]                            \\ It is useful for
  87. \IF+(Enter)[N{\GB[2quest]]                           \\ unforeseen prompts
  88. \IF+(Enter)=none?[{\GB[2quest]]                      \\ that the sysop might
  89. \IF+More?[n{\GB[2quest]]                             \\ have lurking in the
  90. \IF+respond[{\GB[2quest]]                            \\ system.
  91. \IF+More?[n{\GB[2quest]]                             \\ in this script.
  92. \IF+Main Board Command?[{\SVT[0]\eb]                 \\
  93. \IF+Scan [n{\GB[2quest]]                             \\
  94. \IF+assword[%PW{]                                    \\
  95. \IF+Your Main Board[{\SVT[0]\eb]                     \\
  96. \IF+Your Main Menu[{\SVT[0]\eb]
  97. \IF+Conference Command?[{\SVQ[X]\SVT[0]\eb]         \\
  98. \IF+"] Main Board Command?[{\SVQ[X]\SVT[0]\eb]      \\
  99. \IF+ Command [{\SVT[0]\eb]                 \\
  100. \+VT[1]
  101. \IE+%VT,2[\pa[2]\GB[2quest]                              \\ block to its beginning
  102. \IE+%VT,3[\ie-%VJ,X[^K] \pa[2]\GB[2quest]                           \\ block to its beginning
  103. \IE+%VT,4[\pa[2]\GB[2quest]                              \\ block to its beginning
  104. \IE+%VT,5[\ie-%VJ,X[^J] \pa[2]\GB[2quest]                           \\ block to its beginning        \IF+"] Main Board Command?[{.SVQ[X]\SVT[0]\eb]      \\
  105. \IE+%VT,6[\pa[2]\GB[2quest]                              \\ block to its beginning
  106. \IE+%VT,7[{\svt[0]]\pa[2]\gb[2quest]                 \\ block to its beginning
  107.  
  108. |mail
  109. \IE+%VM,X[\eb]
  110. \au-\dm21[Starting Mail block]                      \\ This will open the mail
  111.                                                     \\ au- turn auto-dn-load off
  112. \CA-[\SVA[X]\eb]                                    \\ door from main command
  113. \IE+%V2,QMAIL4[Qmail4{ |op %V2{]\PA[5]\SVM[X]\eb     \\ waits 5 sec before door.
  114.  
  115. |Omail
  116. \IE+%VM,X[\eb]
  117. \au-\dm21[Starting Mail block]                      \\ This will open the mail
  118.                                                     \\ au- turn auto-dn-load off
  119. \CA-[\SVA[X]\eb]                                    \\ door from main command
  120. o{\PA[5]\SVM[X]\eb                                  \\ waits 5 sec before door.
  121.  
  122. |QMul
  123. \+VT[1]
  124. \IE+%VS,X[\eb]
  125. \CA-[\SVA[X]\eb]                                    \\ display message
  126. {\WF[Qmail Command?]~u{\IW-[\SVS[]\IVt+9[\SVA[x]\svt[0]\bl[2quest]\gb[QMul]]     \\ issue upload command
  127. \wf[B01]\IVt+9[\SVA[x]]\IW-[\SVS[]\bl[2quest]\gb[QMul]]
  128. \ulz-[%VP%V1]\it+[\dc-[copy %VP%v1 %VP1%V1]\DC-[del %VP%V1]]
  129. \SVS[X]{\svt[0]\eb                                         \\ above block renames
  130.                                                     \\ *.rep to 1*.rep
  131. |QMdl
  132. \IE+%VG,X[\eb]
  133. \dm22[Starting to do Mail Dnload]\CA-[\SVA[X]\eb]    \\Display message
  134. \wp[1]{\WF[Qmail Command?]~d{                        \\issue command for dnload
  135. \to[%VH]\wf[messages found....      0]\IW+[q{\eb]    \\ checks for messages
  136. \\to[%VH]\wf[no messages were found]\IW+[q{\eb]      \\ checks for messages
  137. \to[254]\WF[Do you]~y{                                \\ waits for prompt
  138. \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]
  139. \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ download mail packet.
  140. \CA-[\SVA[X]\eb] ~~{\WF[Command?]~q{
  141. \CA+[\ie+%VX,X[\bl[extfile]]]      \\ Extract newfiles.dat from qwk packet
  142. \to[40]\bl[2quest] \\ return to main.
  143. \SVG[X]\svt[0]\eb
  144.  
  145. |MMul
  146. \+VT[1]
  147. \IE+%VS,X[\eb]
  148. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  149. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  150. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  151. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  152. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  153. \WF[Command?]~u{\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[MMul]]  \\ give upload command
  154. \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[MMul]]
  155. \ulz-[%VP%V1]                                        \\ do Zmodem upload of mail
  156. \it+[\dc-[copy %VP%v1 %VP1%V1]]                   \\ if successful ren file
  157. \IT+[\DC-[del %VP%V1]]                            \\ del old file.
  158. \SVS[X]\svt[0]\eb
  159.  
  160. |MMdl
  161. \IE+%VG,X[\eb]
  162. \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  163. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command
  164. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages
  165. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  166. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  167. \WF[Command?]~d{                        \\ Enter download command
  168. \to[%VH]\WF[No Messages Found]\IW+[\sva[x]q{\eb]
  169. \to[254]\wf[Total M]\IW-[q{\eb]~y{       \\check message
  170. \CA-[\SVA[X]\eb]
  171. \IW-[\wf[you]y{]
  172. \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]\CA-[\SVA[X]\eb]\\ make backups of the existing qwks
  173. \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  174. \CA-[\SVA[X]\eb] \to[40]\WF[MarkMail Command?]q{ \\ Quit door
  175. \CA+[\ie+%VX,X[\bl[extfile]]]      \\ Extract newfiles.dat from qwk packet
  176. \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb             \\ run prompt command.
  177. \SVG[X]\svt[0]\eb
  178.  
  179. |RMul
  180. \+VT[1]
  181. \IE+%VS,X[\eb]
  182. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  183. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  184. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  185. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  186. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  187. \WF[Command?]~u{\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[RMul]]   \\ give upload command
  188. \WF[B01] \IW-[\SVS[]\bl[2quest]\gb[RMul]]
  189. {\ulz-[%VP%V1]                                       \\ do Zmodem upload of mail
  190. \it+[\dc-[copy %VP%v1 %VP1%V1]]                   \\ if successful ren file
  191. \IT+[\DC-[del %VP%V1]]                            \\ del old file.
  192. \SVS[X]\svt[0]\eb
  193.  
  194. |RMdl
  195. \IE+%VG,X[\eb]
  196. \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  197. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command
  198. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages
  199. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  200. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  201. \CA-[\SVA[X]\eb] \WF[Command?]~d;y{     \\ Enter download command
  202. \WF[checking]\IW+[\bl[renfile]]         \\ make backups of the existing qwks
  203. \CA-[\SVA[X]\eb] \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  204. \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{ \\ Quit door
  205. \CA+[\ie+%VX,X[\bl[extfile]]]      \\ Extract newfiles.dat from qwk packet
  206. \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb              \\ run prompt command.
  207. \SVG[X]\svt[0]\eb
  208.  
  209. |KMul
  210. \+VT[1]
  211. \IE+%VS,X[\eb]
  212. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display
  213. ~\if+Hit "[Enter"] to continue?[{]                \\ if prompt do it.
  214. \\if+Time Adjusted[{\SVA[X]\eb]                   \\ Some systems will
  215. \if+Time Expired!![{\SVA[X]\eb]                   \\ error if not enough
  216. \if+Automatic Logoff[{\SVA[X]\eb]                 \\ time to do file transfer
  217. \WF[Kmail Command?]u{~\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[KMul]]   \\ give upload command
  218. \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[KMul]]
  219. {\ulz-[%VP%V1]                                       \\ do Zmodem upload of mail
  220. \it+[\dc-[copy %VP%v1 %VP1%V1]]                   \\ if successful ren file
  221. \IT+[\DC-[del %VP%V1]]                            \\ del old file.
  222. \SVS[X]\svt[0]\eb
  223.  
  224. |KMdl
  225. \IE+%VG,X[\eb]
  226. {\dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display
  227. \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{]  \\ if prompt command
  228. \CA-[\SVA[X]\eb]
  229. \\if+Time Adjusted[{\SVA[X]\eb]         \\ some error messages currently off.
  230. \if+Time Expired!![{\SVA[X]\eb]         \\ some error messages
  231. \if+Automatic disconnect[{\SVA[X]\eb]       \\ some error messages
  232. \if+Automatic Logoff[{\SVA[X]\eb]       \\ some error messages
  233. \WF[Command?]~d{                        \\ Enter download command
  234. \to[%VH]\WF[No Messages Found]\IW+[q{\eb]
  235. \to[254]\wf[Do You Want]~y{ \\check message
  236. \CA-[\SVA[X]\eb]
  237. \\to[254]\wf[Total M]~\rvd-[15]\dvd[9]\ie+%vd,%VG[\sve[M]]~y{ \\check message
  238. \IW+[\bl[renfile]                      \\ make backups of the existing qwks
  239. \TO[254]\CA-[\SVA[X]\eb] \WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer
  240. \CA-[\SVA[X]\eb] \ie+%ve,M[\+vb[1]\gb[KMdl]\\if maximum # of messages re-due MM block
  241. \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{    \\ Quit door
  242. \CA+[\ie+%VX,X[\bl[extfile]]]      \\ Extract newfiles.dat from qwk packet
  243. \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb             \\ run prompt command.
  244. \SVG[X]\svt[0]\eb
  245.  
  246. |MRul                                  \\MegaMail
  247. \IE+%VS,X[\eb]
  248. \dm23[Starting %v1 Mail upload]\PA[1]
  249. \WF[B01]~\ULZ[%VP%V1]
  250. \it+[\dc-[copy %VP%V1 %VP1%V1]]        \\ these commands I am not sure if
  251. \IT+[\DC-[del %VP%V1]]                 \\ there needed w/Megamail.
  252. \SVS[X]\eb
  253.  
  254. |MRdl
  255. \IE+%VG,X[\eb]
  256. \PA[5]\dm23[Starting %V4 Mail download]
  257. \IW+[\bl[renfile]                      \\ make backups of the existing qwks
  258. \to[254]\WF[B00]~\DLZ[%VP%V4]         \\ I have been told that this isn't
  259. \to[40]\DM22[Leaving MegaMail Door]\SVG[X]\eb \\ needed... I don't really know.
  260. \svt[0]
  261.  
  262. |OMul
  263. \+VT[1]
  264. \IE+%VS,X[\eb]
  265. \CA-[\SVA[X]\eb]                                    \\ display message
  266. \WF[ommand,]~u{\IW-[\SVS[]\bl[2quest]\gb[OMul]]     \\ issue upload command
  267. \WF[ZIP]{                                            \\ Compression
  268. \wf[B01]\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[QMul]]
  269. \ulz-[%VP%V1]\it+[\dc-[copy %VP%v1 %VP1%V1]\DC-[del %VP%V1]]
  270. \SVS[X]\svt[0]\eb                                   \\ above block renames
  271.                                                     \\ *.rep to 1*.rep
  272. |OMdl
  273. \IE+%VG,X[\eb]
  274. \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb]    \\ Display message
  275. \wp[1]\WF[Command,]~d{                               \\ issue command for dnload
  276. \WF[ZIP]{                                            \\ Compression
  277. \WF[limit]{                                          \\ Message limit
  278. \WF[New Files?]y{                                    \\ New file option
  279. \WF[Your Personal Messages?]N{                       \\ Persional message option
  280. \to[%VH]\wf[SysOp-Defined Maximum Number]\IW+[\SVL[X]\eb] \\ checks for message limit
  281. \to[254]\WF[Transfer]~S{                             \\ waits for prompt
  282. \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]
  283. \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ download mail packet.
  284. \IVL+X[\+Vb[1]\SVL[]\bl[OMdl]]
  285. \CA-[\SVA[X]\eb] ~~{\WF[Command?]~q
  286. \CA+[\ie+%VX,X[\bl[extfile]]]      \\ Extract newfiles.dat from qwk packet
  287. {\to[40]\bl[2quest] \\ return to main.
  288. \SVG[X]\svt[0]\eb
  289.  
  290. |renfile
  291. \CA-[\SVA[X]\eb]
  292. \dm[ Altering file names ]
  293. \lm[V0=%V0 Va=%Va Vb=%Vb VC=%VC ]    \\ logs messages to disk about-
  294. \lm[VD=%VD VE=%VE VF=%Vf VG=%VG ]    \\ variables being used.
  295. \IE+%Vb,9[\dc-[del %VP8%v4]\gb[8]]   \\ From here to the end of the
  296. \IE+%Vb,8[\dc-[del %VP7%v4]\gb[7]]   \\ end of this section, these
  297. \IE+%Vb,7[\dc-[del %VP6%v4]\gb[6]]   \\ commands will rename the qwks
  298. \IE+%Vb,6[\dc-[del %VP5%v4]\gb[5]]   \\ to the defined setup.
  299. \IE+%Vb,5[\dc-[del %VP4%v4]\gb[4]]   \\            .
  300. \IE+%Vb,4[\dc-[del %VP3%v4]\gb[3]]   \\            .
  301. \IE+%Vb,3[\dc-[del %VP2%v4]\gb[2]]   \\            .
  302. \IE+%Vb,2[\dc-[del %VP1%v4]\gb[1]]   \\            .
  303. \IE+%Vb,1[\gb[delfile]]              \\            .
  304. \IE+%Vb, [\gb[delfile]]              \\            .
  305. \IE-%V6,[\gb[delfile]]               \\            .
  306. |9                                   \\            .
  307. \dc-[ren %VP8%v4 9%v4]\gb[8]         \\            .
  308. |8                                   \\            .
  309. \dc-[ren %VP7%v4 8%v4]\gb[7]         \\            .
  310. |7                                   \\            .
  311. \dc-[ren %VP6%v4 7%v4]\gb[6]         \\            .
  312. |6                                   \\            .
  313. \dc-[ren %VP5%v4 6%v4]\gb[5]         \\            .
  314. |5                                   \\            .
  315. \dc-[ren %VP4%v4 5%v4]\gb[4]         \\            .
  316. |4                                   \\            .
  317. \dc-[ren %VP3%v4 4%v4]\gb[3]         \\            .
  318. |3                                   \\            .
  319. \dc-[ren %VP2%v4 3%v4]\gb[2]         \\            .
  320. |2                                   \\            .
  321. \dc-[ren %VP1%v4 2%v4]\gb[1]         \\            .
  322. |1                                   \\            .
  323. \dc-[ren %VP%v4 1%v4]\gb[delfile]    \\    * end of ren file commands *
  324. |delfile                             \\            .
  325. \dc-[del %VP%v4]                     \\ By default, this will delete one file.
  326.  
  327. |Prodoor                             \\ Probably will eliminate this one.
  328. \dm[Entering prodoor]\CA-[\eb]
  329. \to[20]\wf[ommand]{\iw-[\gb[prodoor]]  \\ enters prodoor if not successful
  330. \wf[ommand]open %V3{\pa[5]             \\  at prompt try again. Open other
  331. \eb                                    \\ wise.
  332.  
  333. |FILES
  334. \fe+%S:%VI.up[\sv3[5]\SVT[0]\bl[fileInfo]]
  335. \lm[ New File listing for «═════════ %VI ══════════» ]
  336. \ie+N,%VC[\eb] \CA-[\SVA[X]\eb] \IE+%VF,X[\eb]
  337. \CA-[\eb]\dm[Scanning for new files]\WP[1] \\ check carrier
  338. \wf[ommand]n s %VC ns{\pa[2]               \\ issues command for new file
  339. \to[60]\bl[2quest]                          \\ scan and then runs quest block
  340. \\fe+%S:%VI.msg[\svt[0]\bl[upmess]]
  341. \eb
  342.  
  343. |FileInfo
  344. \\CA-[\SVA[X]\eb]
  345. \dm22,22[fileinfo block, getting file name]
  346. \GV0[%S:%VI.up]                         \\ Reads info on current line of file
  347. \\II+(,%V0[ \bl[other] \GB[fileInfo] ]   \\ if ( is contained on \bl[quest2]
  348.                                         \\ line, change conferences.
  349. \\II+/,%V0[ \bl[join] \GB[fileInfo] ]    \\ if / is contained on \bl[quest2]
  350.                                         \\ line, change conferences.
  351. \II+%V0,^Z[ \gv[] \bl[okfile] \BL[upload] \bl[clear] \bl[upclean] \ST[ ]\eb]
  352.                                         \\ This checks for end of file marker.
  353. \IE+%V0,"+[\bl[okfile] \BL[upload] \bl[clear] \GB[FileInfo] ] \\ If "+" is on this line
  354.                                         \\ do U/L and repeat block.
  355. \II+%V0,"*[\EB]                         \\ If "*" is on this line \eb and
  356.                                         \\ then do U/L
  357. \SV%V3[%V0]\+v3[1] \GB[FileInfo]        \\ sends info and repeats block.
  358.  
  359. |okfile
  360. \fe+%U:%v5[\svo[ok]]
  361. \fe+%D:%v5[\svo[ok]]
  362. \fe+c:\host\boyan1\%v5[\svo[ok]\SVK[c:\host\boyan1\%v5]]
  363. \fe+c:\host\tribbs\%v5[\svo[ok]\SVK[c:\host\tribbs\%v5]]
  364. \fe+c:\host\program\%v5[\svo[ok]\SVK[c:\host\program\%v5]]
  365. \fe+c:\host\wp1\%v5[\svo[ok]\SVK[c:\host\wp1\%v5]]
  366. \fe+c:\host\window\%v5[\svo[ok]\SVK[c:\host\window\%v5]]
  367. \fe+c:\host\dos1\%v5[\svo[ok]\SVK[c:\host\dos1\%v5]]
  368. \fe+c:\host\readers\%v5[\svo[ok]\SVK[c:\host\readers\%v5]]
  369. \fe+c:\host\other1\%v5[\svo[ok]\SVK[c:\host\other1\%v5]]
  370. \fe+c:\host\BUS\%v5[\svo[ok]\SVK[c:\host\BUS\%v5]]
  371. \fe+c:\host\COMM1\%v5[\svo[ok]\SVK[c:\host\COMM1\%v5]]
  372.  
  373. |clear
  374. \sv5[]\sv6[]\sv7[]\sv8[]\svo[]          \\ Clears info stored in variables 5-8
  375. \sv3[5]\svt[0]                          \\ Set variable 3 to 5 for use in
  376.                                         \\ fileinfo block
  377. |upclean
  378. \ie+%VI,new[\eb]
  379. \dc-[copy %S:%VI.up %S:1%Vi.up]
  380. \dc-[del %s:%vi.up]
  381.  
  382. |upload
  383. \wp[1]
  384. \CA-[\SVA[]\eb] \IE+%VU,X[\eb] \IE+%VT,9[\SVT[0]{] \IE-%VO,ok[\eb]
  385. \IE+%V5,"           `[\eb]      \\ if nothing is contained in %V5 end block
  386. \IE+%V5,"+[\eb]      \\ if + is contained in %V5 end block
  387. \dm23,23[Starting file upload]\CA-[\eb]      \\ check carrier
  388. \if+Insufficient[{\eb]                        \\ issue upload & file name
  389. \if+Upload (Enter)=none?[{\eb]                \\ issue upload & file name
  390. \if+(Enter)=none?[{\eb]                       \\ issue upload & file name
  391. \if+Enter the Filename[{\eb]                  \\ issue upload & file name
  392. \if+? ([\bl[upinfo]\eb]
  393. \if+Enter the Filename[\bl[upinfo]\eb]
  394. \if+enter a description[\bl[upinfo]\eb]
  395. \if+exists[\eb]
  396. \if+duplicates[{\eb]
  397. \IF+Main Board Command?[u %v5 {\gb[upload]]     \\ issue upload & file name
  398. \IF+"] Main Board Command?[u %v5 {\gb[upload]]  \\ issue upload & file name
  399. \IF+Your Main Menu[u %v5 {\gb[upload]]          \\ issue upload & file name
  400. \IF+Conference Command?[u %v5 {\gb[upload]]     \\ issue upload & file name
  401. \IF+ Command[u %v5 {\gb[upload]]     \\ issue upload & file name
  402. \if+B01[\bl[upinfo]\eb]
  403. \pa[2]\+VT[1]\gb[upload]
  404. \eb
  405.  
  406. |join
  407. \II-/,%V0[ \eb ]
  408. \dv0[1] j `%v0 q ns{                      \\ Command to change conferences.
  409. \bl[2quest]
  410.  
  411. |other                                    \\ this block is flagged by a (
  412.                                           \\ in the %VI.dow file.  The (
  413.                                           \\ is deleted and the other commands
  414.                                           \\ on this line are sent. ie:
  415.                                           \\ F 080192
  416. \dv0[1] %v0 q ns{                         \\ Command to change conferences.
  417. \pa[30]\bl[2quest]
  418.  
  419.  
  420. |upinfo
  421. \CA-[\SVA[X]\eb]\to[5]
  422. \if+ommand[\eb]%V6{                        \\ if not correct prompt end
  423. \II-%v7,  [\WF[? (  ]%v7{|%v7{]               \\ if not then add file
  424. \II-%V8,  [\WF[? (  ]%v8{|%v8{]               \\ description.
  425. {\pa[1]{\CA-[\SVA[X]\eb]
  426. \fe+%U:%v5[\WF[B01]\ko[0]\ulz-[%v5]{\bl[checking]]     \\ Start Zmodem  transfer.
  427. \fe+%D:%v5[\WF[B01]\ko[0]\ulz-[%D:%v5]{\bl[checking]] \\ Start Zmodem  transfer.
  428. \fe+%VK[\WF[B01]\ko[0]\ulz-[%VK]{\bl[checking]] \\ Start Zmodem  transfer.
  429.  
  430.  
  431. |checking
  432. \to[12]\wf[ZIPLAB PLUS]
  433. \IW+[\to[50]\svj[x]\WF[passed]]                   \\ If system does file check
  434. \IW-[\to[40]\wf[command]]      \\ If system does file check
  435. {\bl[2quest]\svj[]                             \\ pause and then run quest bl.
  436.  
  437.  
  438. |dowlst
  439. \CA-[\SVA[X]\eb]
  440. \GV0[%S:%VI.dow]                         \\ Reads info on current line of file
  441. \II+/,%V0[ \bl[join] \GB[dowlst] ]   \\ if / is contained on \bl[quest2]
  442.                                         \\ line, change conferences.
  443. \II+(,%V0[ \bl[other] \GB[fileInfo] ]   \\ if ( is contained on \bl[quest2]
  444.                                         \\ line, change conferences.
  445. \IE+%V0,^Z[ \gv[] \ST[ ] \bl[wipefile] \eb]\\ This checks for end of file marker.
  446. \SV9[%V0] \bl[download] \GB[dowlst]    \\ sends info and repeats block.
  447.  
  448. |upclear
  449. \sv0[]\sv9[]                            \\ Clears info stored in variables 0&9
  450.  
  451. |wipefile
  452. \dc-[copy %S:%VI.dow %S:1%VI.dow]
  453. \dc-[del %S:%VI.dow]
  454.  
  455. |download
  456. \IE+%VD,X[\eb]
  457. \fe+%D:%V9[\eb]
  458. \fe+%U:%V9[\eb]
  459. \fe+c:\host\%V9[\eb]
  460. \iv9+[\eb]
  461. \CA-[\eb]\dm8[Starting file dnload]{    \\ check carrier
  462. \if+Insufficient time remaining[\bl[2quest]\eb]\\looking for time - endblock
  463. \if+uploads are currently disabled[\bl[2quest]\eb]\\looking for disabled - endblock
  464. \if+found on disk![\bl[2quest]\eb]       \\ looking for found to - endblock
  465. \if+ommand[db;%v9{\gb[download]]         \\ looking for command to - download
  466. \if+ilespec[{\gb[download]]                \\ execute download commands
  467. \if+(1) Enter the filename[{\svt[0]\bl[2quest]\eb] \\ error message and abort block
  468. \if+(G)oodbye after Batch[{\gb[download]]  \\ looking for this to proceed
  469. \if+(A)dd a File[{\gb[download]]           \\ looking for this to proceed
  470. \if+Download (Enter)=none?[{\gb[download]] \\ looking for this to proceed
  471. \if+(2) Enter the filename[{\gb[download]] \\ looking for this to proceed
  472. \if+(3) Enter the filename[{\gb[download]] \\ looking for this to proceed
  473. \if+(4) Enter the filename[{\gb[download]] \\ looking for this to proceed
  474. \if+(5) Enter the filename[{\gb[download]] \\ looking for this to proceed
  475. \if+(6) Enter the filename[{\gb[download]] \\ looking for this to proceed
  476. \if+(7) Enter the filename[{\gb[download]] \\ looking for this to proceed
  477. \if+(8) Enter the filename[{\gb[download]] \\ looking for this to proceed
  478. \if+(9) Enter the filename[{\gb[download]] \\ looking for this to proceed
  479. \II-.zip,%V9[\if+B00[\dlz-[o:\test1\%V9]\pa[1]\svt[0]\bl[2quest]\eb]]    \\ waits for Zmodem signal/dnloads
  480. \II+.zip,%V9[\if+B00[\dlz-[%V9]\pa[1]\svt[0]\bl[2quest]\eb]]    \\ waits for Zmodem signal/dnloads
  481. \if+Transfer Ended[\svt[0]\bl[2quest]\eb]          \\ Cycles quest block
  482. \if+found[\bl[2quest]\eb]                   \\ Error message and quest block
  483. \+vt[1]\ivt+15[\eb]
  484. \pa[2]{\gb[download]
  485. \eb
  486.  
  487. |upmess
  488. \ivt+45[\svt[0]\bl[2quest]\eb]
  489. \if+command[e \svt[0]\gb[upmess]]
  490. \if+=`ALL[sysop{\svt[0]\gb[upmess]]
  491. \if+(R)e-enter User's Name[r{\svt[0]\gb[upmess]]
  492. \if+Subject (Enter)=abort[Hang ZipLab{\svt[0]\gb[upmess]]
  493. \if+Use Full Screen Editor?[y{\svt[0]\gb[upmess]]
  494. \if+echo[y{\svt[0]\gb[upmess]]
  495. \if+(------------------[\ula-[%S:%Vi.msg]\svt[0]\dc-[copy %S:%vi.msg %S:1%vi.msg\eb]
  496. \if+To (Enter)=`ALL[sysop{\svt[0]\gb[upmess]]
  497. {\+vt[1]
  498. \gb[upmess]
  499. \\Perform (S)oundex Search, (R)e-enter User's Name or (C)ontinue on? (S)
  500.  
  501. |logoff                       \\ Log off block
  502. \svx[]
  503. \ca-[\eb]\svb[]\svc[]
  504. \dm[Getting ready to log off] \\ Message display.
  505. \wp[1]\ko[ ]\to[12]\au+       \\ check carrier & reset settings
  506. \\ie+%S#,22[\ca-[ATZ{\eb]g y~{\eb]
  507. \ca-[\EB]g y{
  508. \ca-[\EB|{~{\eb]               \\issue <G>oodbye command before hanging up.
  509.  
  510. |calback                      \\ Call back block if error occurred
  511. \dm20[ Script terminating, unable to log on ]       \\ not get logged onto
  512. \dm21[  You have three seconds to hit ESC   ]       \\ the system, lets try
  513. \dm22[   before logging off this system.    ]       \\ again on another call.
  514. \pa[3]\um[ %SN terminated at %HR %MI ]              \\ place note in user log.
  515. \qa+[%v0]\SVA[]{\ko[]        \\ adds current system phone number to queue
  516. \IE+ON,%LD[\LD-]             \\ Checks log status and turns off if necessary
  517. g y{~atz{~\AB
  518.  
  519. |Settings
  520. \sv0[1]
  521. \DM4,%V0[ ╔═══════════════════════════════════════╗                                              ]\+V0[1]
  522. \DM4,%V0[ ║   Current settings                    ║                                              ]\+V0[1]
  523. \DM4,%V0[ ╠═══════════════════════════════════════╣                                              ]\+V0[1]
  524. \DM4,%V0[ ║  Avail. shell MEM  : %DS              ║                                              ]\+V0[1]
  525. \DM4,%V0[ ║ Current Act Module : %AM                ║                                              ]\+V0[1]
  526. \DM4,%V0[ ║   Pervious Act Mod : %AP                ║                                              ]\+V0[1]
  527. \DM4,%V0[ ║       Beep & Bells : %BB              ║                                              ]\+V0[1]
  528. \DM4,%V0[ ║        8Bit ON/OFF : %B8              ║                                              ]\+V0[1]
  529. \DM4,%V0[ ║           Com Port : %MD                ║                                              ]\+V0[1]
  530. \DM4,%V0[ ║        Modem Speed : %MS             ║                                              ]\+V0[1]
  531. \DM4,%V0[ ║       Modem Parity : %MP                ║                                              ]\+V0[1]
  532. \DM4,%V0[ ║        Echo set to : %EC              ║                                              ]\+V0[1]
  533. \DM4,%V0[ ║       Uart Setting : %AU              ║                                              ]\+V0[1]
  534. \DM4,%V0[ ║  Line Feeds set to : %LF               ║                                              ]\+V0[1]
  535. \DM4,%V0[ ║ Current Printer Set: %PR              ║                                              ]\+V0[1]
  536. \DM4,%V0[ ║   Default Protocol : %DP                                                             ]\+V0[1]
  537. \DM4,%V0[ ║   Current Log file : %LN                                                             ]\+V0[1]
  538. \DM4,%V0[ ║  Path for Protocol : %P:                                                             ]\+V0[1]
  539. \DM4,%V0[ ║  Current Phone dir : %FD                                                             ]\+V0[1]
  540. \DM4,%V0[ ║       Connected to : %SN                                                             ]\+V0[1]
  541. \DM4,%V0[ ║      Last filename : %TF                                                             ]\+V0[1]
  542. \DM4,%V0[ ║        Current Dir : %C:                                                             ]\+V0[1]
  543. \DM4,%V0[ ║ Download Directory : %D:                                                             ]\+V0[1]
  544. \DM4,%V0[ ╚════════════════════════════════════════════════════════════════════════════════════╝ ]
  545. \KV0_[Enter to Continue: ]
  546.  
  547. |*TAB             \\ This runs automatically when <Tab> pressed
  548. \SV0[1] \KS
  549. \DM38,%V0[ ╔═══════════════════════════════════════╗ ]  \+V0[1]
  550. \DM38,%V0[  ║ OnLine MENU    %HR:%MI  %Mo/%DA/%YR        ║ ]  \+V0[1]
  551. \DM38,%V0[ ╠═══════════════════════════════════════╣ ]  \+V0[1]
  552. \DM38,%V0[ ║ <C> = find main Command               ║ ]  \+V0[1]
  553. \DM38,%V0[ ║ <D> = Download a file                 ║ ]  \+V0[1]
  554. \DM38,%V0[ ║ <DM>= Download Mail (from mail door)  ║ ]  \+V0[1]
  555. \DM38,%V0[ ║ <E> = Edit Script                     ║ ]  \+V0[1]
  556. \DM38,%V0[ ║ <F> = File Manager                    ║ ]  \+V0[1]
  557. \DM38,%V0[ ║ <G> = Goodbye                         ║ ]  \+V0[1]
  558. \DM38,%V0[ ║ <J> = Jump to DOS                     ║ ]  \+V0[1]
  559. \DM38,%V0[ ║ <L> = Log to disk ...status %LD       ║ ]  \+V0[1]
  560. \DM38,%V0[ ║ <M> = Mail (check for your mail)      ║ ]  \+V0[1]
  561. \DM38,%V0[ ║ <N> = New File Scan                   ║ ]  \+V0[1]
  562. \DM38,%V0[ ║ <O> = Open Door                       ║ ]  \+V0[1]
  563. \DM38,%V0[ ║ <P> = edit Phone directory            ║ ]  \+V0[1]
  564. \DM38,%V0[ ║ <Q> = Quick Note file                 ║ ]  \+V0[1]
  565. \DM38,%V0[ ║ <S> = Scroll-back buffer              ║ ]  \+V0[1]
  566. \DM38,%V0[ ║ <T> = Termanial Mode                  ║ ]  \+V0[1]
  567. \DM38,%V0[ ║ <U> = Upload a file                   ║ ]  \+V0[1]
  568. \DM38,%V0[ ║ <UM>= Upload Mail (from mail door)    ║ ]  \+V0[1]
  569. \DM38,%V0[ ╟───────────────────────────────────────╢ ]  \+V0[1]
  570. \DM38,%V0[ ║ <R> = RESUME Script  <?> Manual Macro ║ ]  \+V0[1]
  571. \DM38,%V0[ ║<Esc>= ABORT script   <V>iew Settings  ║ ]  \+V0[1]
  572. \DM38,%V0[ ╚═══════════════════════════════════════╝ ]
  573. \KO[30]  \BB+  \KV0__[Enter OPTION: ]  \BB-  \RS
  574. \IV0+C[\SVQ[]\bl[quest]\gb[termlines]]
  575. \IV0+DM[\SVG[]\bl[KMdl]]
  576. \IV0+D[\SVD[]\bl[Download]]
  577. \IV0+E[\DC-[%WC %S:%VY]\gb[*tab]]
  578. \IV0+G[\bl[logoff]\EB]
  579. \IV0+F[\FM[]\gb[*tab]]
  580. \IV0+J[\JD\gb[*tab]]
  581. \IV0+L[\LD*\gb[*tab]]
  582. \IV0+M[R Y{\GB[termlines]]
  583. \IV0+?[\KV9[MACRO:]   \LV9[]  \IE+%LV,1[\SV9[%V9]]\gb[*tab]]
  584. \IV0+N[\SVF[]\bl[files]{\GB[termlines]]
  585. \IV0+O[\SVM[]op %V2 {\GB[termlines]]
  586. \IV0+P[\DI[] \GB[*Tab] ]
  587. \IV0+Q[\DC-[%WC %B:notes.txt]]
  588. \IV0+R[\gs[%VI;menu]]
  589. \IV0+S[\RB\gb[*Tab]]
  590. \IV0+T[\gb[termlines]\gb[*tab]]
  591. \IV0+UM[\SVS[]\bl[KMul]\gb[*tab]]
  592. \IV0+U[\SVU[]\bl[upload]\gb[*tab]]
  593. \IV0+V[\bl[settings]\gb[*tab]]
  594. \GB[*TAB]
  595.  
  596. |TermLines
  597. \to[120]
  598. \ST[ » Press <TAB> for Menu options «]
  599. \RE[\CA-[\ab] \IK+[%IK]]
  600. \RE[\CA-[\ab] \IK+[%IK] \IF+new[\em] ]
  601.  
  602. |extfile
  603. \fe+%D:%vi.qwk[\af`%S:newfiles.lst[`  «═══════ File listing for %Vi %mo/%da ═══════» ]]
  604. \nd[%S:]
  605. \fe+%D:%vi.qwk[\dc-[pkunzip -o -e %d:%vi.qwk newfiles.dat]]
  606. \fe+%S:newfiles.dat[\dc-[type %S:newfiles.dat >> %S:newfiles.lst]]
  607. \fe+%S:newfiles.dat[\dc-[del %S:newfiles.dat]]\nd[%B:]
  608.  
  609.  
  610. |*WrapUp
  611. \\MA[7]
  612.